home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / rexx / axisym.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  646b  |  30 lines
  1. /* Ami2d init script for axisym problems */
  2.  
  3. address ami2d
  4.  
  5. 'axisym'
  6. 'problem(struct)'
  7. 'set plane strain'
  8.  
  9. 'set epsr=r1'
  10. 'set epsz=z2'
  11. 'set epst=t1'
  12. 'set gamrz=r2+z1'
  13. 'set gam12=(0.25*(epsr-epsz)^2+0.25*gamrz^2)^0.5'
  14. 'set eps1=0.5*(epsr+epsz)+gam12'
  15. 'set eps2=0.5*(epsr+epsz)-gam12'
  16. 'set eps3=t1'
  17.  
  18. 'set sigr=c1*r1+c5*z2+c8*t1+c10*gamrz-f1'
  19. 'set sigz=c5*r1+c2*z2+c6*t1+c9*gamrz-f2'
  20. 'set sigt=c8*r1+c6*z2+c3*t1+c7*gamrz-f1'
  21. 'set taurz=c10*r1+c9*z2+c7*t1+c4*gamrz'
  22. 'set tau12=(0.25*(sigr-sigz)^2+taurz^2)^0.5'
  23. 'set sig1=0.5*(sigr+sigz)+tau12'
  24. 'set sig2=0.5*(sigr+sigz)-tau12'
  25. 'set sig3=sigt'
  26. 'set sigh=(sigr+sigz+sigt)/3'
  27. 'set sigd=sig1-sigh'
  28.  
  29. exit
  30.